home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / alpha.arc / LOPASS.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-31  |  1.1 KB  |  34 lines
  1. 5 REM Copyright 1986, Arnold B. Krueger, Grosse Pointe Woods, MI, 48236
  2. 10  DEF FNAMLP2(W,WC,D) = 1 / SQR(1+(WC/W)^4+(D*D-2.000001)*(WC/W)^2)
  3. 20  DEF FNDBV(AMP) = 20!*LOG(AMP)/LOG(10!)
  4. 30 PI = ATN(SQR(3!))*3!
  5. 40 PRINT "Unity Gain Low Pass Filter Program"
  6. 50 INPUT "Enter desired Q:  hit enter for Butterworth (.707) ",Q
  7. 60 IF Q = 0 THEN Q = 1!/SQR(2!)
  8. 70 INPUT "Enter desired Design Frequency: (1000 Hz) ",F
  9. 80 IF F = 0 THEN F = 1000
  10. 90 SCALF = 1000!/F
  11. 100 INPUT "Enter desired C1 values: (10,000 pF) ",C
  12. 110 IF C = 0 THEN C = 10000
  13. 120 SCALC = 16000/C
  14. 130 R  = 10000!*SCALC*SCALF*Q*2!
  15. 140 C2 = C*.25/(Q*Q)
  16. 150 PRINT "C1 = ";C;"pF C2 = ";C2;"pF"
  17. 155 PRINT " R(1) & R(2) = ";R;" R feedback ";2!*R;"ohms"
  18. 160 F1 = 2!*F
  19. 170 F2 = F/2
  20. 180 W1 = F1*2!*PI
  21. 190 W2 = F2*2!*PI
  22. 200 W  = F *2!*PI
  23. 210 D = 1! / Q
  24. 220 AMP1 = FNAMLP2(W1,W,D)
  25. 230 AMP2 = FNAMLP2(W2,W,D)
  26. 240 AMP  = FNAMLP2(W,W,D)
  27. 250 AMP1DB = FNDBV(AMP1)
  28. 260 AMP2DB = FNDBV(AMP2)
  29. 270 AMPDB = FNDBV(AMP)
  30. 280 PRINT "F(half design) ";F2;"Hz,response ";AMP1DB;" dB"
  31. 290 PRINT "F(design) ";F;"Hz, response ";AMPDB;" dB"
  32. 300 PRINT "F(double design) ";F1;"Hz response ";AMP2DB;" dB"
  33. 
  34.